home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.20010921-20020314 / 000369_harfst@cms-stl.com_Wed Feb 13 14:44:08 EST 2002.msg < prev    next >
Text File  |  2020-01-01  |  2KB  |  64 lines
  1. Article: 13213 of comp.protocols.kermit.misc
  2. Path: newsmaster.cc.columbia.edu!phl-feed.news.verio.net!iad-feed.news.verio.net!iad-peer.news.verio.net!news.verio.net!news.maxwell.syr.edu!sn-xit-03!sn-xit-02!supernews.com!postnews1.google.com!not-for-mail
  3. From: harfst@cms-stl.com (David L. Harfst)
  4. Newsgroups: comp.protocols.kermit.misc
  5. Subject: Re: if syntax change
  6. Date: 13 Feb 2002 11:31:10 -0800
  7. Organization: http://groups.google.com/
  8. Lines: 45
  9. Message-ID: <26dc2188.0202131131.7ec3359f@posting.google.com>
  10. References: <26dc2188.0202081336.79eb8459@posting.google.com> <a41het$1na$1@watsol.cc.columbia.edu> <26dc2188.0202110943.62504aec@posting.google.com> <a491sp$85l$1@watsol.cc.columbia.edu>
  11. NNTP-Posting-Host: 66.136.168.97
  12. Content-Type: text/plain; charset=ISO-8859-1
  13. Content-Transfer-Encoding: 8bit
  14. X-Trace: posting.google.com 1013628670 18650 127.0.0.1 (13 Feb 2002 19:31:10 GMT)
  15. X-Complaints-To: groups-abuse@google.com
  16. NNTP-Posting-Date: 13 Feb 2002 19:31:10 GMT
  17. Xref: newsmaster.cc.columbia.edu comp.protocols.kermit.misc:13213
  18.  
  19. Okay, your code works for me, too.
  20.  
  21. Try this:
  22.  
  23. def FastBlazer {
  24.   set modem type telebit
  25.   xif EQUAL "\$(SPEED)" "14400" {
  26.     set modem command init-string AT&F%S0*M10*W4M0X6V1\{13}
  27.   }
  28. }
  29. FastBlazer
  30.  
  31.  
  32. I really appreciate your time, Frank.
  33.  
  34. fdc@columbia.edu (Frank da Cruz) wrote in message 
  35. > I checked it in 7.0.196, 8.0.200, and 8.0.201.  The results are all
  36. > identical:
  37. > 
  38. >   $ echo $SPEED
  39. > 
  40. >   $ kermit
  41. >   (/p/kd/fdc/tmp/) C-Kermit>tak x
  42. >    \v(m_init) = ATQ0X4&A3&N0&Y3S14=0\{13}
  43. >   (/p/kd/fdc/tmp/) C-Kermit>q
  44. >   $ export SPEED=14400
  45. >   $ echo $SPEED
  46. >   14400
  47. >   $ kermit
  48. >   (/p/kd/fdc/tmp/) C-Kermit>tak x
  49. >    \v(m_init) = AT&F0+MS=10M0X4V1S95=41\{13}
  50. >   (/p/kd/fdc/tmp/) C-Kermit>
  51. > 
  52. > where x is:
  53. > 
  54. >   set modem type usr
  55. >   xif EQUAL "\$(SPEED)" "14400" {
  56. >     # +MS=10 - Limits the connection speed to 14.4 KBaud
  57. >     set modem command Init-string AT&F0+MS=10M0X4V1S95=41\{13}
  58. >   }
  59. >   show var m_init
  60. > 
  61. > No complaints from any Kermit version 7.0 or greater.
  62. > 
  63. > - Frank
  64.